home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 14 / CU Amiga Magazine's Super CD-ROM 14 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-09].iso / CUCD / Programming / Blitz2 / BlitzFaq / FaqLists / Bbsdoor.txt < prev    next >
Encoding:
Text File  |  1996-09-05  |  587 b   |  43 lines
  1. in.l=Input_()
  2.  
  3. Flush_(in)
  4. SetMode_ in,True
  5.  
  6. test=35
  7. done=0
  8.  
  9. For m=1 To test
  10.   cc.w=33+Rnd(94)
  11.   a$=""
  12.   For n=1 To done+1
  13.     a$+Chr$(cc)
  14.   Next
  15.   Print a$
  16.   For n=1 To 55
  17.     If WaitForChar_(in,1)
  18.       c.l=FGetC_(in)
  19.       If c=cc
  20.         NPrint "***"+Chr$(10)
  21.         Pop For
  22.         done+1
  23.         Goto ok
  24.       Else
  25.         NPrint "!!!"
  26.         Pop For
  27.         Goto ko
  28.       EndIf
  29.     Else
  30.       Print Chr$(cc)
  31.     EndIf
  32.     Delay_(1)
  33.   Next
  34. ko
  35.   NPrint ""
  36.   DisplayBeep_(0)
  37. ok
  38. Next
  39.  
  40. NPrint Chr$(10)+"You've made the ",done,"/",test,"  ",Int((done/test)*100),"%"
  41.  
  42. SetMode_ in,False
  43.